home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / MacPerl ƒ / Perl Source ƒ / Perl / Perl.r < prev    next >
Text File  |  1994-01-15  |  7KB  |  294 lines
  1. /*
  2.  *    Copyright (c) 1991-94 Tim Endres & Matthias Neeracher
  3.  *
  4.  *    You may distribute under the terms of the Perl Artistic License,
  5.  *    as specified in the README file.
  6.  *
  7.  * Revision 4.0  04Dec91 TE
  8.  * 4.0 baseline.
  9.  * 
  10.  */
  11.  
  12. #include "SysTypes.r"        /* To get system types */
  13. #include "Types.r"            /* To get general types */
  14. #include "Cmdo.r"            /* For commando interface */
  15.  
  16. #define GUSI_PREF_VERSION '0110'
  17.  
  18. #include "GUSI.r"
  19.  
  20. include "Perl.rsrc";
  21.  
  22. resource 'GU∑I' (GUSIRsrcID) {
  23.     text, mpw, noAutoSpin, useChdir, approxStat, noTCPDaemon, noUDPDaemon;
  24. };
  25.  
  26. resource 'vers' (1) {
  27.     0x04, 0x12, release, 0x00, verUS,
  28.     "4.1.2",
  29.     "Perl - ported by Matthias Neeracher and Tim Endres."
  30.     };
  31.  
  32. resource 'vers' (2) {
  33.     0x04, 0x12, release, 0x00, verUS,
  34.     "4.1.2",
  35.     "Perl 4.1.2 (15Jan94)"
  36.     };
  37.  
  38. resource 'DLOG' (2001)    {
  39.     {  0,   0, 150, 400},
  40.     dBoxProc,
  41.     invisible,
  42.     noGoAway,
  43.     0,
  44.     2001,
  45.     ""
  46. };
  47.  
  48. resource 'DITL' (2001)    {
  49.     {
  50.         {119,  307, 137,  387}, Button         { enabled, "B1"},
  51.         {119, 8406, 137, 8486}, Button         { enabled, "B2"},
  52.         {119, 8313, 137, 8393}, Button         { enabled, "B3"},
  53.         { 13,   23,  45,   55}, Icon            {disabled, 0    },
  54.         { 13,   78, 103,  387}, StaticText    {disabled, "Prompt"}
  55.     }
  56. };
  57.  
  58. resource 'DLOG' (2002)    {
  59.     {  0,   0, 150, 400},
  60.     dBoxProc,
  61.     invisible,
  62.     noGoAway,
  63.     0,
  64.     2002,
  65.     ""
  66. };
  67.  
  68.  
  69. resource 'DITL' (2002)    {
  70.     {
  71.         {119,  307, 137,  387}, Button         { enabled, "B1"},
  72.         {119,  214, 137,  294}, Button         { enabled, "B2"},
  73.         {119, 8313, 137, 8393}, Button         { enabled, "B3"},
  74.         { 13,   23,  45,   55}, Icon        {disabled, 2    },
  75.         { 13,   78, 103,  387}, StaticText    {disabled, "Prompt"}
  76.     }
  77. };
  78.  
  79. resource 'DLOG' (2003)    {
  80.     {  0,   0, 150, 400},
  81.     dBoxProc,
  82.     invisible,
  83.     noGoAway,
  84.     0,
  85.     2003,
  86.     ""
  87. };
  88.  
  89. resource 'DITL' (2003)    {
  90.     {
  91.         {119, 307, 137, 387}, Button         { enabled, "B1"},
  92.         {119, 214, 137, 294}, Button         { enabled, "B2"},
  93.         {119, 121, 137, 201}, Button         { enabled, "B3"},
  94.         { 13,  23,  45,  55}, Icon            {disabled, 2    },
  95.         { 13,  78, 103, 387}, StaticText    {disabled, "Prompt"}
  96.     }
  97. };
  98.  
  99. resource 'DLOG' (2010) {
  100.     {0, 0, 104, 400},
  101.     dBoxProc,
  102.     invisible,
  103.     noGoAway,
  104.     0x0,
  105.     2010,
  106.     ""
  107. };
  108.  
  109. resource 'DITL' (2010, "Ask", purgeable) {
  110.     {    
  111.         {73, 307, 91, 387}, Button             { enabled, "OK"},
  112.         {73, 214, 91, 294},    Button             { enabled, "Cancel"},
  113.         {13,  13, 31, 387},    StaticText         {disabled, "^0"},
  114.         {44,  15, 60, 385}, EditText         {disabled, ""}
  115.     }
  116. };
  117.  
  118. resource 'DLOG' (2020) {
  119.     {38, 80, 245, 427},
  120.     dBoxProc,
  121.     invisible,
  122.     noGoAway,
  123.     0x0,
  124.     2020,
  125.     ""
  126. };
  127.     
  128. resource 'DITL' (2020) {
  129.     {    
  130.         {178,  30, 198,  88},    Button         { enabled, "OK"},
  131.         {178, 258, 198, 316},    Button         { enabled, "Cancel"},
  132.         {  2,   2,  19, 373},    StaticText     {disabled, "Prompt"},
  133.         { 19,   2, 168, 345},    UserItem     {disabled}
  134.     }
  135. };
  136.  
  137. resource 'cmdo' (128) {
  138.     {
  139.         295,            /* Height of dialog */
  140.         "Perl -- Practical Extraction and Report Language\n"
  141.         "by Larry Wall <lwall@netlabs.com>",
  142.         {
  143.             Or {{-2}}, Files {
  144.                 InputFile,
  145.                 OptionalFile {
  146.                     { 17,  10,  33, 115},
  147.                     { 15, 117,  35, 195},
  148.                     "Program File:",
  149.                     "", "", "",
  150.                     "Select program file. If no files are specified and no program "
  151.                     "is given on the command line, standard input will be used.",
  152.                     dim,
  153.                     "Read Standard Input",
  154.                     "Select a script to execute…",
  155.                     "",
  156.                 },
  157.                 Additional {
  158.                     "",
  159.                     ".pl",
  160.                     "Files ending with .pl",
  161.                     "All text files",
  162.                     {text}
  163.                 }
  164.             },
  165.             Or {{-1}}, RegularEntry {
  166.                 "Program:",
  167.                 { 42,  10,  58, 115},
  168.                 { 42, 120,  58, 465},
  169.                 "",
  170.                 keepCase,
  171.                 "-e",
  172.                 "Program to execute."
  173.             },
  174.             notDependent {}, MultiFiles {
  175.                 "Input File(s)…",
  176.                 "Select input files.  If no files are specified, Perl reads from standard input.",
  177.                 { 15, 300, 35, 465},
  178.                 "Input files:",
  179.                 "",
  180.                 MultiInputFiles {
  181.                     {TEXT},
  182.                     FilterTypes,
  183.                     "Only text files",
  184.                     "All files",
  185.                 }
  186.             },
  187.             notDependent {}, Redirection {
  188.                 StandardInput,
  189.                 { 75,  20}
  190.             },
  191.             notDependent {}, Redirection {
  192.                 StandardOutput,
  193.                 {110,  20}
  194.             },
  195.             notDependent {}, Redirection {
  196.                 DiagnosticOutput,
  197.                 {145,  20}
  198.             },
  199.             notDependent {}, TextBox {
  200.                 gray,
  201.                 { 70,  10, 185, 240},
  202.                 "Redirection"
  203.             },
  204.             notDependent {}, CheckOption     {
  205.                 NotSet, { 75, 270,  91, 465}, "Print Version", "-v", 
  206.                 "Print version information to standard output.",
  207.             },
  208.             notDependent {}, CheckOption     {
  209.                 NotSet, { 92, 270, 108, 465}, "Syntax Check Only", "-c", 
  210.                 "Exit after syntax checking.",
  211.             },
  212.             notDependent {}, CheckOption     {
  213.                 NotSet, {109, 270, 125, 465}, "Print warnings", "-w", 
  214.                 "Print warnings about lots of likely errors.",
  215.             },
  216.             notDependent {}, CheckOption     {
  217.                 NotSet, {126, 270, 142, 465}, "Debug", "-d", 
  218.                 "Run Perl debugger at start.",
  219.             },
  220.             notDependent {}, CheckOption     {
  221.                 NotSet, {143, 270, 159, 465}, "Inplace processing", "-i.bak", 
  222.                 "Make backup and replace file.",
  223.             },
  224.             notDependent {}, NestedDialog    {
  225.                 2,
  226.                 {165, 270, 185, 440},
  227.                 "More Options…",
  228.                 "Lots of switches to configure the behaviour of Perl."
  229.             },
  230.             notDependent {}, VersionDialog {
  231.                 VersionString {
  232.                     "4.1.2"
  233.                 },
  234.                 "Perl by Larry Wall <lwall@netlabs.com>\n"
  235.                 "MPW port by Matthias Neeracher <neeri@iis.ee.ethz.ch>\n"
  236.                 "and Tim Endres <time@ice.com>\n",
  237.                 0
  238.             },
  239.         },
  240.         270,
  241.         "",
  242.         {
  243.             notDependent {}, RadioButtons {
  244.                 {
  245.                     { 36,  20,  51, 220}, "Newline", "", set, 
  246.                     "Records are terminated with newlines.",
  247.                     { 53,  20,  68, 220}, "Null Character", "-0", notset, 
  248.                     "Records are terminated with null characters",
  249.                     { 70,  20,  85, 220}, "Paragraph", "-00", notset, 
  250.                     "Records are terminated with two consecutive newlines"
  251.                 }
  252.             },
  253.             Or {{-3}}, CheckOption {
  254.                 NotSet, { 36, 240,  52, 465}, "Automatic Loop", "-n", 
  255.                 "Iterate script once for each input line."
  256.             },
  257.             Or {{-2}}, CheckOption {
  258.                 NotSet, { 53, 240,  69, 465}, "Automatic Printing Loop", "-p", 
  259.                 "Iterate script once for each input line, printing the line by default."
  260.             },
  261.             notDependent {}, CheckOption {
  262.                 NotSet, { 70, 240,  86, 465}, "Autosplit mode", "-a", 
  263.                 "Split input line before processing."
  264.             },
  265.             notDependent {}, CheckOption {
  266.                 NotSet, { 87, 240, 103, 465}, "Automatic Line End Processing", "-l", 
  267.                 "Chop input line and append newline on printing."
  268.             },
  269.             notDependent {}, CheckOption {
  270.                 NotSet, {115,  20, 131, 220}, "Run through C Preprocessor", "-P", 
  271.                 "Run the script through the C preprocessor first."
  272.             },
  273.             notDependent {}, CheckOption {
  274.                 NotSet, {132,  20, 148, 220}, "Switch parsing", "-s", 
  275.                 "Enables some rudimentary switch parsing."
  276.             },
  277.             notDependent {}, CheckOption {
  278.                 NotSet, {115, 240, 131, 465}, "Skip leading garbage.", "-x", 
  279.                 "Skip lines to the first #!perl line. Great for shell scripts."
  280.             },
  281.             notDependent {}, TextBox {
  282.                 gray,
  283.                 { 25,  10, 108, 225},
  284.                 "Record Separator"
  285.             },
  286.             notDependent {}, TextBox {
  287.                 gray,
  288.                 { 25, 235, 108, 470},
  289.                 "Useful for One Liners"
  290.             },
  291.         }
  292.     },
  293. };
  294.